トップページ ＞ Perlについて
●Perlについて●
2021-05-18 11:44:00ツェラーの公式
ツェラーの公式とは、ある日付から、曜日を算出する公式です。
wdayが0 なら日曜日、6 なら土曜日になります。但し、 month は1月、2月を 13、14 としておきます。
グレゴリオ暦の日付に対して有効です。
出典「suikawiki」より
※追記(2023/01/03)
ツェラーの公式のコードを記述します。
wdayが0 なら日曜日、6 なら土曜日になります。但し、 month は1月、2月を 13、14 としておきます。
グレゴリオ暦の日付に対して有効です。
出典「suikawiki」より
※追記(2023/01/03)
ツェラーの公式のコードを記述します。
sub wday {
my ($year， $month， $day) = @_;
if($month < 3){
$month += 12;
$year--;
}
return ($year+int($year/4)-int($year/100)+int($year/400)+int((13*$month+8)/5)+$day)% 7;
|
いいね:105 |